home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)tk.d64
/
dump3-basic.d
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
927b
|
29 lines
10 POKE53280,9:POKE53281,12:PRINT"[147][144] BOB SWIFT'S":POKE198,0
20 PRINT" HIGH RESOLUTION SCREEN DUMP"
30 PRINT" ***************************"
40 PRINTTAB(7)"I - INPUT NEW IMAGE"
50 PRINTTAB(7)"V - VIEW EXISTING IMAGE"
60 PRINTTAB(7)"P - PRINT EXISTING IMAGE"
70 PRINTTAB(7)"Q - QUIT PROGRAM":POKE198,0
80 GETA$:IFA$<>"I"ANDA$<>"V"ANDA$<>"P"ANDA$<>"Q"THEN80
90 IFA$="Q"THENPRINT"[147]";:END
100 IFA$="I"THENPRINT"[147]INPUT NEW IMAGE":INPUT"PROGRAM TITLE";A$:LOADA$,8,1
110 IFA$="P"THEN170
120 PRINT"[147]":POKE53265,PEEK(53265)OR32:POKE53272,27
130 FORI=1024TO2023:POKEI,1:NEXT:POKE198,0
140 FORI=1TO3000:GETA$:IFA$<>""THENI=3000
150 NEXT
160 POKE53265,27:POKE53272,21:GOTO10
170 PRINT"[147]PRINT IMAGE":PRINT"***********"
180 PRINT"N[146]ORMAL OR R[146]EVERSE ?";:POKE198,0
190 GETA$:IFA$<>"N"ANDA$<>"R"THEN190
200 R=0:PRINTA$:IFA$="R"THENR=1
210 PRINT"S[146]MALL OR L[146]ARGE ?";:POKE198,0
220 GETA$:IFA$<>"S"ANDA$<>"L"THEN220
230 S=0:PRINTA$:IFA$="L"THENS=1:E=0:GOTO270
240 PRINT"EXPAND IN 'Y' DIRECTION ?";:POKE198,0
250 GETA$:IFA$<>"Y"ANDA$<>"N"THEN250
260 PRINTA$:E=0:IFA$="Y"THENE=1
270 POKE49154,S:POKE49153,E
280 POKE49152,R:SYS49155:GOTO10